home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 21.zip / BS1 part 21 / Professional Page v4.0 (1993)(Gold Disk)(Disk 1 of 4)[HD].7z / Professional Page v4.0 (1993)(Gold Disk)(Disk 1 of 4)[HD].adf / rexx.lzh / SafeEndEdit.rexx < prev    next >
OS/2 REXX Batch file  |  1993-01-29  |  363b  |  20 lines
  1. /*
  2.     The safe way to end edit mode
  3. */
  4.  
  5. if ~show(l, "rexxsupport.library") then
  6.     if ~addlib("rexxsupport.library", 0, -30) then
  7.     do
  8.         call ppm_Inform(1,"Please install the rexxsupport.library in your libs: directory before running this Genie.")
  9.         exit
  10.     end
  11.  
  12. call ppm_EndEdit()
  13.  
  14. do while word(ppm_GetState(), 1) = 3
  15.  
  16.     call delay(10)
  17.  
  18. end
  19.  
  20.